home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 June / 64er_Magazin_85-06_1985_Markt__Technik_de.d64 / hi-eddi_mps 801 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  33 lines
  1. 10 rem ********************************
  2. 20 rem ** hi-print routine fuer c 64 **
  3. 30 rem ** & mps-801 von              **
  4. 40 rem ** f.kulzer                   **
  5. 50 rem ** generiert programm auf     **
  6. 60 rem ** disk/vc-1541               **
  7. 70 rem ********************************
  8. 80 for i=1 to 290:read a
  9. 90 s=s+a
  10. 100 next i:if s<>30516 then print"fehler in datas !!":end
  11. 110 restore
  12. 120 open 2,8,2,"hi-print,p,w"
  13. 130 print#2,chr$(0);chr$(13);:rem startadresse
  14. 140 for i=1 to 290:read a
  15. 150 print#2,chr$(a);:next i
  16. 160 close 2:end
  17. 170 rem--------------------------------
  18. 180 data169,127,162,4,160,0,32,186,255,32,192,255,162,127,134,103,32,201,255
  19. 190 data169,255,133,97,169,7,133,253,169,28,133,151,169,0,141,18,14,169,40
  20. 200 data141,20,14,162,4,189,182,13,32,210,255,202,16,247,169,0,133,99,133,100
  21. 210 data173,18,14,133,101,169,0,133,254,165,99,166,100,164,101,32,187,13,160
  22. 220 data0,177,172,166,254,157,22,14,230,101,232,134,254,228,253,208,229,169
  23. 230 data0,160,7,166,253,30,22,14,42,202,16,249,37,97,9,128,32,210,255,136,16
  24. 240 data237,165,99,24,105,8,133,99,144,2,230,100,206,20,14,208,181,169,13,32
  25. 250 data210,255,173,18,14,24,105,7,141,18,14,198,151,240,3,76,36,13,169,4,197
  26. 260 data253,240,12,133,253,169,1,133,151,169,15,133,97,208,235,169,15,32,210
  27. 270 data255,169,127,76,204,255,80,0,16,27,8,133,20,134,21,152,74,74,74,170
  28. 280 data189,244,13,133,173,138,41,3,170,189,14,14,133,172,152,41,7,24,101,172
  29. 290 data133,172,165,20,41,248,133,99,169,32,5,173,133,173,24,165,172,101,99
  30. 300 data133,172,165,173,101,21,133,173,96,0,1,2,3,5,6,7,8,10,11,12,13,15,16
  31. 310 data17,18,20,21,22,23,25,26,27,28,30,31,0,64,128,192,161,0,17,0,0,0,0,128
  32. 320 data0,0,0,0,0,255,0,255
  33.